(autoload-print-form): Use print-quoted.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1bfb7ac5de5ed8db3171b9ba733edb67af285274..cc8b7422ce150e7d47547d58175febe9364e9703 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/autoload.el (autoload-print-form): Use print-quoted.
+
 2007-08-12  Richard Stallman  <rms@gnu.org>
 
        * progmodes/sh-script.el (sh): Delete group `unix'.

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 5eb9b8ce6212fb6be2952fc834d1450575404668..14877e1b18f487d6b47e0cea825404aabce074d5 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -209,6 +209,7 @@ put the output in."
            (setcdr p nil)
            (princ "\n(" outbuf)
            (let ((print-escape-newlines t)
+                  (print-quoted t)
                  (print-escape-nonascii t))
              (dolist (elt form)
                (prin1 elt outbuf)
@@ -232,6 +233,7 @@ put the output in."
                       outbuf))
              (terpri outbuf)))
        (let ((print-escape-newlines t)
+              (print-quoted t)
              (print-escape-nonascii t))
          (print form outbuf)))))))